-- stack: in
-- format: 8 (HyperCard 1)
-- flags: 0x5000 (can't delete)
-- protect password hash: 0
-- maximum user level: 5 (scripting)
-- window: Rect(x1=0, y1=0, x2=0, y2=0)
-- screen: Rect(x1=0, y1=0, x2=0, y2=0)
-- card dimensions: w=0 h=0
-- scroll: x=0 y=0
-- background count: 3
-- first background id: 2751
-- card count: 27
-- first card id: 4542
-- list block id: 3958
-- print block id: 3555
-- font table block id: 0
-- style table block id: 0
-- free block count: 0
-- free size: 0 bytes
-- total size: 86016 bytes
-- stack block size: 4608 bytes
-- created by hypercard version: 0x00000000
-- compacted by hypercard version: 0x01208000
-- modified by hypercard version: 0x01208000
-- opened by hypercard version: 0x01208000
-- patterns[0]: 0x0000000000000000
-- patterns[1]: 0x0000220000002200
-- patterns[2]: 0x8800220088002200
-- patterns[3]: 0xCC003300CC003300
-- patterns[4]: 0xCC883322CC883322
-- patterns[5]: 0xEE88BB22EE88BB22
-- patterns[6]: 0xEECCBB33EECCBB33
-- patterns[7]: 0xFFCCFF33FFCCFF33
-- patterns[8]: 0xFFEEFFBBFFEEFFBB
-- patterns[9]: 0xFFFFFFBBFFFFFFBB
-- patterns[10]: 0x8010022001084004
-- patterns[11]: 0xFFFFFFFFFFFFFFFF
-- patterns[12]: 0x8822882288228822
-- patterns[13]: 0x1122448811224488
-- patterns[14]: 0xC4800C6843023026
-- patterns[15]: 0xB130031BD8C00C8D
-- patterns[16]: 0xAA00AA00AA00AA00
-- patterns[17]: 0x8822552288225522
-- patterns[18]: 0x8855225588552255
-- patterns[19]: 0x77DD77DD77DD77DD
-- patterns[20]: 0x8000000000000000
-- patterns[21]: 0xAA55AA55AA55AA55
-- patterns[22]: 0x038448300C020101
-- patterns[23]: 0x8244394482010101
-- patterns[24]: 0x8814224188412214
-- patterns[25]: 0x8080413E080814E3
-- patterns[26]: 0x22048C7422179810
-- patterns[27]: 0xBE808808EB088880
-- patterns[28]: 0x25C8328964244C92
-- patterns[29]: 0xA29C41BE2AC914EB
-- patterns[30]: 0x40A00000040A0000
-- patterns[31]: 0x8040200002040800
-- patterns[32]: 0xAA00800088008000
-- patterns[33]: 0xFF80808080808080
-- patterns[34]: 0x081C22C180010204
-- patterns[35]: 0xFF808080FF080808
-- patterns[36]: 0xF87422478F172271
-- patterns[37]: 0xBF00BFBFB0B0B0B0
-- patterns[38]: 0xFF7FBE5DA2418000
-- patterns[39]: 0xFAF5FAF5A050A050
-- checksum: 0x0
----- HyperTalk script -----
on startUp
  getHomeInfo
  pass startUp -- to a startUp XCMD, if present
end startUp

on resume
  getHomeInfo
  pass resume -- to a resume XCMD, if present
end resume

on openStack
  global nform,tmode,prog,pos,priorlevel,running
  hide menuBar
  hide message
  put "0.0000" into nform
  put "rad" into tmode
  put "Rad" into card field "DR" of card "Calc"
  put 0 into prog
  put 0 into running
  put 0 into chink
  put 2 into pos
  hide card field "RnInd" of card "Calc"
  hide card field "PrgInd" of card "Calc"
  show button "Set Home" of card "Calc"
  get the userLevel
  put it into priorLevel
  set userLevel to 2
  set the blindTyping to false
end openStack

on closeStack
  global priorLevel
  set userlevel to priorLevel
  show menuBar
end closeStack

on enterKey
  send mouseUp to button "E"
  send mouseUp to button "Kbd"
end enterKey

on pushup
  delete first line of card field Regs
end pushup

on doMenu task
  if the userLevel = 5 then
    pass doMenu
  else
    if task = "Print Report..." then pass doMenu
    if task = "Compact Stack" then pass doMenu
    if task = "Copy Button" then pass doMenu
    if task = "Paste Button" then pass doMenu
    if task = "Cut Text" then pass doMenu
    if task = "Copy Text" then pass doMenu
    if task = "Paste Text" then pass doMenu
  end if
end doMenu

on idle
  if the userLevel = 5 then exit idle
  hide menuBar
end idle